Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Menu4.dxr/00001_Startup.ls

Text File | 1998-12-16 | 1.1 KB | 47 lines

global gMasterData, gBlinker, gFlashTime

on startMovie
  setModule(gMasterData, #menu4)
  setUserArea(gMasterData, #menu4)
  setBlinker()
  set the keyDownScript to "quitCatcher"
  cursor(0)
end

on setBlinker
  repeat with thisArea in [#review, #plan, #eval]
    if not activationOn(gMasterData, thisArea) then
      set gBlinker to thisArea
      exit
    end if
  end repeat
  set gBlinker to #empty
end

on blinkSprite
  if gBlinker <> #empty then
    set vNewTime to the ticks
    if vNewTime > gFlashTime then
      case gBlinker of
        #review:
          set upMember to "area1"
          set vFlashSprite to 3
        #plan:
          set upMember to "area2"
          set vFlashSprite to 4
        #eval:
          set upMember to "area3"
          set vFlashSprite to 5
      end case
      set vThisName to the name of member the member of sprite vFlashSprite
      case vThisName of
        upMember:
          set the member of sprite vFlashSprite to member (upMember && "flash")
        (upMember && "flash"):
          set the member of sprite vFlashSprite to member upMember
      end case
      set gFlashTime to the ticks + 60
    end if
  end if
end